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Abstract 

BCPL  is  a language  which  is  readable  and  easy  to  learn,  as  well 
as  admitting  of  an  efficient  compiler  capable  of  generating  efficient 
code.  It  is  made  self  consistent  and  easy  to  define  accurately  by  an 
underlying  structure  based  on  a simple  idealized  object  machine.  The 
treatment  of  data  types  unusual  and  it  allows  the  power  and 
convenience  of  a language  with  dynamically  varying  types  and  yet  the 
efficiency  of  FORTRAN.  BCPL  has  been  used  successfully  to  impl^..nent  a 
number  of  languages  and  has  proved  to  be  a useful  tool  for  compiler 
writing.  The  BCPL  compiler  itself  is  written  in  BCPL  and  has  been 
aosionoa  to  be  easy  to  transfer  to  other  machines;  it  has  already  been 
transferred  to  more  than  ten  different  systems. 


This  research  was  supported  in  part  by  the  Advanced  Research  Projects 
Agency  of  the  Department  of  Defense  under  ARPA  Order  No.  2095  which 
was  monitored  by  ONR  Contract  No.  N00014-70-A-0362-0006 . 
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1 . 0 Introduction 

fiCPL  (Basic  CPL)  is  a general  purpose  programming  language  which 
is  particularly  suitable  for  large  nonnumerical  problem.s  in  which 
machine  independence  is  important.  Tt  was  originally  designed  as  a 
tool  for  compiler  writing  and  has,  so  far,  been  used  in  at  least  three 
compilers.  BCPL  is  currently  implemented  and  running  on  the  Honeywell 
635  under  GECOS  III,  on  the  Honeywell  645  and  6180  under  Multics,  on 
t :-.e  IS.!  360  under  OS  and  CP/CMS,  on  the  TX-2  at  Lincoln  Laboratory,  on 
:.ne  CCC  6400  , on  the  Univac  1108,  and  on  the  DEC  PDP-9 . There  are 
alsc  BCPL  compilers  on  the  KDF  9 at  Oxford  and  on  Atias  2 at 
Camoridge.  Other  implementations  are  under  construction. 

BCPL  is  related  to  CPL  (Combined  Programming  Language  [1,  2])  and 
was  Developed  using  experience  gained  from  work  on  a CPL  compiler. 

The  BCPL  compiler  is  written  in  BCPL  and  is  designed  for  fairly 
easy  transfer  to  any  other  machine.  inhere  possible  the  implementation 
dependent  parts  of  the  compiler  have  been  separated  out,  so  only  a 
small  proportion  (about  l/5th)  of  the  compiler  needs  to  be  rewritten 
for  a new  implementation.  This  part  consists  mostly  of  the  code 
generator,  which  is  entirely  object-machine  dependent.  There  is  also 
the  command  interface,  which  is  entirely  operating-system  dependent. 
In  addition  to  modifying  the  compiler,  it  is  necessary  to  design  and 
write  the  interface  with  the  new  operating  system;  this  usuall  ' 
includes  several  hundred  lines  of  assembly  language  and  ten  or  twenty 
BCPL  routines. 

The  cost  of  transferring  BCPL  to  a new  machine  is  usually  between 
2 and  5 man  months. 


1 . 1 Implementation  Guides 

This  reference  manual  describes  the  BCPL  language  abstracted  from 
any  particular  implementation.  For  each  implementation  there  should 
be  a specific  implementation  guide  (possibly  several  documents)  to 
describe  in  detail: 

(1)  The  representation  of  a BCPL  programi  in  the  particular 
character  sec,  and  other  source  file  conventions  such  as 
ignoring  columns  73-80  in  card  images.  There  should  be  a 
complete  I’St  of  canonical  symbols  and  their  machine 
ref  resentations . 

(2)  The  form  and  meaning  of  constructs  left  to  the 

implementation.  This  includes  the  g£t  directi'.'e,  the 
external  deciar dtion , the  call  command,  and  finish,  as  well 
as  possibly  other  constructs. 

(3)  The  maximum  lengths  of  names,  section  bracket  tags,  numbers 
and  st‘ ingconstants , and  the  maximum  number  of  cases  in  a 
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switchon,  of  elements  in  a table,  of  arguments  to  a function 
or  routine.  There  may  also  be  restrictions  on  the  length 
and  complexity  of  a program,  on  the  depth  of  recursion,  on 
the  length  of  a single  stack  frame,  and  the  number  of  global 
cells. 

(4)  The  library.  This  consists  of  a number  of  routines  written 
in  BCPL  or  assembly  language  which  can  be  called  by  ordinary 
BCPL  calls.  Usually  a declaration  for  the  library  routines 
will  be  made  available  on-line  in  a form  suitable  for 
inclusion  by  the  get  directive. 

(5)  How  a BCPL  program  i'i  invoked  trom  the  command  language  or 
from  another  compiler  language. 

(6)  How  to  invoke  the  compiler.  Also  its  options,  input  and 
output  tiles,  temporary  files,  storage  requirements,  side 
effects,  etc. 

(7)  All  the  error  messages  or  codes  that  can  be  generated  by  the 
compiler  or  run-time  routines. 

(8)  Extensions  or  restrictions  in  the  canonical  language.  All 
departures  from  the  standard  BCPL  described  in  this  manual 
should  be  documented. 

(9)  Possibly  some  description  of  the  object  program, 
representation  of  strings,  format  of  stack  frame,  etc. 

(10)  Several  sample  programs. 
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2 . 0 Hardware  Representations  and  Syntax 

Since  BCPL  is  implemented  on  many  machines  having  different 
hardware  character  sets,  it  is  useful  to  separate  the  machine 
dependent  hardware  representation  of  a BCPL  program  from  the  canonical 
syntax  of  the  language.  Th ? details  of  the  hardware  representation 
provided  for  any  implementation  can  be  found  in  the  corresponding 
implementation  guide.  In  this  chapter  we  give  the  machine  independent 
canonical  syntax  of  BCPL  and  provide  guide  lines  on  which  any  hardware 
representation  should  be  based. 


A BCPL  program  can  be  thought  of  as  a stream  of  canonical  symbols 
laid  out  on  a page.  The  canonical  symbols  are  the  basic  words, 
operators  and  symbols  of  the  language  and  they  are  the  terminal 
symbols  of  the  canonical  syntax.  Some  canonical  symbols  are  given 
below : 


let  and  "P3*n"  36  < + ; while 

I 

The  symbols  of  a program  are  chosen  from  a finite  set  of  tokens 
along  with  the  following  unbounded  sets: 

<name> 

<number  > 

<str ingconst> 

<charconst> 

<sectbra> 

<sectket> 


As  the  r<?presentations  of  the  tokens  may  differ  in  different 
implementations  because  of  character  set  limitations,  this  manual  uses 
a canonical  BCPL  defined  in  the  next  section. 


2 . 1 Canonical  BCPL 

The  following  are  each  a single  canonical  symbol  with  an 
associated  character  string  part: 


<name> 


A name  is  a single  lower-case  letter  or  a 
capital  letter  followed  by  any  number  of  letters 
and  digits.  For  example;  i Abe  TaxRate  V3 


<number  > 


A number  consists  of  one  or  more  decimal  digits; 
other  forms  are  described  in  section  4.1.2. 


r 

ll 


<str ingconst>  A string  constant  consists  of  any  number  of 
string  characters  contained  between  two  double 
quotes  ( ■' ) . An  escape  convention  is  described 
in  section  4.1.3.  For  example:  "abc" 


i 
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<char const> 


<sectbra> 


<sectket> 


A character  constant  is  a single  string 
character  enclosed  between  two  single  quotes 
(').  The  same  escape  convention  described  in 
section  4.1.3  applies  also  to  character 
constants.  For  example:  'p' 

A left  section  bracket  consists  of  $(  followed 
by  any  number  of  letters  and  digits. 

For  example:  $(  $ (Trans  $(1 

A right  section  bracket  consists  of  $)  followed 
by  any  number  of  letters  and  digits. 

For  example:  $)  $)xyz 


These  are  all  the  other  canonical  symbols: 


and 

be 

break 

by 

call 

case 

default 

do 

endcase 

external 

false 

finish 

iZt 

global 

goto 

IT 

ifnot 

if  so 

into 

let 

list 

Tog and 

logor 

loop 

Ishi f t 

Iv 

manifest 

nil 

not 

or 

r em 

rep 

repeat 

repeatuntil 

repeatwhi le 

resultis 

return 

rsnif t 

rv 

static 

switchon 

table 

test 

to 

true 

unless 

until 

valof 

vec 

while 

+ 

• + 

• 

* 

★ 

• 

/ 

./ 

= 

• * 

< 

.< 

> 

.> 

< 

.< 

> 

. > 

= 

-> 

t 

1 

( 

) 

[ 

] 

Throughout  this  manual  syntax  and  programming  examples  will  be 
given  in  the  representation  defined  in  this  section. 
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2.2  Formal  Syntax 


2.2.1  Syntactic  Notation 


The  syntax  given  in  this  manual  is  Backus  Naur  Form  with  the 
following  extensions: 

(1)  Some  common  syntactic  categories  are  not  surrounded  by 
meta-1  inguistic  brackets. 

(2)  The  symbols  { and  } are  used  to  indicate  zero  or  mor-‘ 
repetitions  of  the  bracketted  entity,  tor  example: 

E {,  E)  means  E | E,  E I E,  E,  E I ...  etc 

The  syntax  given  in  the  next  section  is  ambiguous  and  is  simply 
intended  to  list  all  the  syntactic  constructions  available.  The 
ambiguities  are  resolved  later  in  the  manual. 


2.2.2  The  Canonical  Syntax  of  BCPL 

E ::=  <name>  | <str ingconst>  I <charconst>  | <number> 

I true  I false  I nil  I ( E ) I valot  <block> 

I Iv  E I rv  E I E ( <arg  list>  )~1  E ! E I E ( E ] 

I E <diadlc  op>  E | <monadic  op>  E I E ->  E,  E 

I vec  <constant  expression>  1 table  <constant  list> 
I list  <E  list> 

<diadic  op>  ::=  * I .*  I / I •/  I tem  I + I •+  I - I •“ 

I = I .=  I 7^  I I < I .<  I > I •>  I < I •<  I > I 

I Ishift  I rshif t I logand  I logor  \ z ^ t 


<monadic  op>  ::=  + I .+  I - I I not 

<E  list>  ::=  <E  rep>  {,  <E  rep>l 

<E  rep>  ::=  E | E rep  <constant  expression> 

<arg  1 ist>  ::=  <E  list>  I <empty> 

<constant  expression>  ::=  E 

^constant  list>  ::=  <constant  rep>  {,  <constant  rep>) 

<constant  rep>  ::=  <constant  expression> 

I <constant  expression>  rep  <constant  expression> 

C ::=  <E  list>  :=  <E  list>  | E ( <arg  list>  ) 

I goto  E I <name>  ; C I resultis  E 

I if  E do  C I unless  E do  C I while  E do  C I until  E do  C 
i ~ repeit  I C repeatuntil  E I C repeatwhile  E 
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I loop  I break  I return  1 finish  I endcase 
I test  E tKirT C o_r  C I test  E ifso  C iin^  C 
1 tor  <name>  = E ^ E ^ C 

I <name>  = E E ^ <constant  expression>  ^ C 

I s^tchon  E into  <block>  I case  <constant  expression>:  C 
I case  <constant  expression>  ^ <constant  expression>:  C 

I -gjfault;  C I call  E ( <arg  list>  ) 1 <block>  I <empty> 

D ;:=  <name>  ( <FPL>  ) = E I <name>  ( <FPL>  ) ^ C 

I <name  list>  = <E  list> 

<FPL>  : :=  <name  list>  I <empty> 

<name  list>  r,  :=  <name>  {,  <name>} 

<block>  ::=  $(  <block  body>  $) 

<block  body>  ;5=  <block  iteni>  {;  <block  item>  } 

<block  item>  ::=  C I <declaration> 

<declar ation>  : :=  let  D (and  D) 

I manifest  <decl  booy>  I global  <decl  body> 

I external  <decl  body>  I static  <decl  body> 

<decl  body>  ::=  $(  <C  def>  {;  <C  def>)  $) 

<C  def>  <name>  : <constant  expression> 

I <name>  = <constant  expression> 

<prograin>  <block  body> 
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2.3  Hardware  Representations 


Since  the  hardware  cnaracter  sets  used  for  different 
implementations  differ,  it  is-practical  to  give  only  an  outline  of  the 
hardware  conventions  which  aJi  common  to  most  versions  of  BCPL. 


2.3.1  Names  and  System  Word 


o.,  are  se<^nces  of  letters  used  to  denote  canonical 

ymbols  for  which  there  are  no  suitable  graphics.  The  set  of  reserved 

inters'^^'and  . "’^P^^'^^^tation  dependent.  Names  are  also  composed  of 
and  digits  and  may  be  coined  and  used  by  the  prog^mmer  to 
cenote  variables  and  constants  within  his  program.  if  the  available 

. s?nt:^^!Llirdis?iicl!^  --  -e 


For  character  sets  with  capital  and  small  letters: 


(1) 

(2) 


A system  word  is  any  sequence  of  two  or  more  small  letters 
A name  is  either  ' 

(a)  a single  small  lef-er 

(b)  a capital  letter  followed  by  any  sequence  of  letters 
digits  and  possibly  ol-her  suitable  characters  (e.g. 


For  character  sets  with  only  capital  letters; 


(1) 


An  Identifier  is  a capital  letter  folJowod  by  any 

sequence  of  letters,  digits  and  possibly  other  suitable 
characters  (e.g.  . #) 

(2)  A name  is  an  identifier  which  is  not  a system  word. 


implementations  let  and  logor  are  syster.  words  whilf 
LOGOR  may  be  used  as  names;  but  with  a mof. 
charac^'er  set  LET  and  LOGOR  would  be  reserved  system  woras 
ana  tne  programmer  would  have  to  represent  the  names  .n  somr  ot^er 

way , perhaps  by : 


F_LET,  S_LET,  F LOGOR,  S LOGOR 


2.3.2  Section  Brackets 


The  preferred  representation  of  a left  section  bracket  consists 
Of  I followed  by  zero  or  more  letters,  digits,  and  other  characters 
allowed  in  names.  A right  section  bracket  consists  of  } followed  bv 

this  °manu-l  digits,  etc.  As  the  symbols  { ana  } are  used  in 

svitTv  1 brackets,  section  brackets  in  the 

represented  using  an  alternate  form  also 
suitable  for  more  limited  character  sets. 
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2.3.3  Equivalent  Representations  of  Canonical  Symbols 

Several  canonical  symbols  have  alternate  representations  for 
clarity  and  compatibility.  Thus  ^ may  be  represented  as  step,  and  ^ 
may  be  represented  as  then . Many  symbols  ordinarily  represented  by 
non-alphabet ic  cnaracters  may  also  be  represented  by  system  words. 
For  example,  = may  be  represented  as  e^. 


2 . 4 Preprocessor  Conventions 

Several  functions  which  the  compiler  performs  before  syntactic 
analysis  to  improve  readability  and  as  a convenience  to  the  programmer 
are  collectively  called  preprocessor  conventions . 


2.4.1  Section  Brackets 

Section  brackets  are  used  to  bracket  blocks  and  commands.  To 
aid  the  readability  of  programs,  section  brackets  may  be  tagg-'i  with 
any  sequence  of  characters  \.aich  may  occur  in  identifiers.  A closing 
section  bracket  matches  an  earlier  open  section  bracket  with  the  same 
tag  and  any  outstanding  sections  will  be  closed  automatically.  For 
example  s 

$ ( 1 until  i=0  do 
Fn  R (i) 

i :=  i + 1 $)  1 


is  equivalent  to: 


S(1 


until  i=0  do 
$(2  R (i) 

i :=  i + 1 $)2  $)1 


2.4.2  Automatic  Insertion  of  SEMICOLON 

The  canonical  symbol  SEMICOLON  is  inserted  by  the  compiler 
between  pairs  of  items  if  they  appeared  on  different  lines  and  if  the 
first  was  from  the  set  of  items  which  may  end  a command  or  definition, 
namely : 

loop  break  return  finish  endcase  repeat  true  false  nil 
<name>  <numb''r>  <str  ingconsF>  <charconst>  <sectket>  ) ) 


and  the  second  is  from  the  set  of  items  which  ma^  start  a command  or 
declaration,  namely; 


test  tor  if  unless  until  while  goto  resultis  call 
switchon  case  ^f ault  endcase  ~Toop  BreaTi  return 
finish  valof  rv 


. Cl  SA  X W ^ ^ ^ w ^ - - — — - _ 

Tv  true  false  table  TTst  ( + - not 
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<name>  <number>  <str ingconst>  <charconst>  <sectbra> 
global  manifest  static  external  let 

F’or  example,  the  following  two  programs  are  eguivalent: 


X :=  X + 1 
i f X > y ^ y :=  0 

R (X) 


X :=  X + 1; 

if  X > y do  y ;=  0 ; 

R (X) 


2.4.3  Automatic  Insertion  of  DO 

The  canonical  symbol  DO  is  inserted  by  the  compiler  between 
pairs  of  items  if  they  appeared  on  the  same  line  and  if  the  first  is 
from  the  set  of  items  which  may  end  an  expression,  namely: 

true  false  nil  <name>  <number>  <str ingconst> 

<charconst>  <sectket>  ) J 

and  the  second  is  from  the  set  of  items  which  must  start  a command, 
namely : 

test  for  if  unless  until  while  goto  resultis  case 
default  endcase  loop  break  return  finish  sw it chon  ^ 

For  example: 

unless  0 < T < Tmax  resultis  true 
i f x=^  goto  L 


is  equivalent  to: 


unless  0 < T < Tmax  ^ resultis  true 
if  x=0  do  goto  L 


2.4.4  Comments 

User  s comm.ents  may  be  included  in  a program  between  a doubxe 
slash  ' //'  and  the  end  of  the  line.  Example; 

let  R 0 be  //  this  is  a routine  which  refills  Symb 
$(  fo7~ i = 1 200  ^ //  do  it  200  times 

Readch  (INPUT,  Iv  Symbli)  $)  //  read  a char 
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2.4.5  The  Get  Directive 

A directive  of  the  form 

get  <specifier> 

may  occur  anywhere  in  a BCPL  program;  it  directs  the  compiler  to 
replace  the  characters  of  the  directive  by  the  text  in  the  file 
referred  to  by  the  specifier.  The  syntactic  form  of  the  specifier  is 
implementation  dependent  but  will  usually  be  a string  constant. 
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3.0  Fundamental  Concepts  of  BCPL 

3 . 1 The  Object  Machine 

BCPL  has  a simple  underlying  semantic  structure  which  is  built 
around  an  idealized  object  machine.  This  method  of  design  was  chosen 
in  order  to  make  BCPL  easy  to  define  accurately  and  to  facilitate  the 
machine  independence  which  is  one  of  the  fundamental  aims  of  the 
language . 

The  most  important  feature  of  the  object  machine  is  its  store, 
which  is  represented  d iagrammatically  in  Figuie  1. 


A (n)  A (n+1)  A (n+2)  A (n+3) 

^ ^ ^ 

I I I 


Figure  1 - The  Machine's  Store 


It  consists  of  a set  of  consecutive  boxes  (or  storage  cells)  uniquely 
identified  by  arbitrary  addresses.  Some  addressing  function,  A, 
places  the  consecutive  integers  in  one-to-one  correspondence  with  the 
addresses  of  consecutive  cells.  As  is  seen  later,  this  property  is 
important. 

Lach  storage  cell  holds  a binary  pattern  called  an  Rvalue  (or 
Right  hand  value).  All  storage  cells  are  of  the  same  size  and  the 
length  of  Rvalues  is  a constant  of  the  implementation  which  is  usually 
between  24  and  36  bits.  An  Rvalue  is  the  only  kind  of  object  which 
can  be  manipulated  directly  in  BCPL  and  the  value  of  every  variable 
and  expression  in  the  language  will  always  be  an  Rvalue. 

Rvalues  are  used  by  the  programmer  to  model  abstract  objects  of 
"any  different  kinds,  such  as  truth  values,  strings  and  functions.  A 
large  number  of  basic  operations  on  Rvalues  have  been  provided  in 
order  to  help  the  programmer  model  the  transformation  of  his  abstract 
objects.  In  particular,  there  are  the  usual  arithmetic  operativ>ns 
which  operate  on  Rvalues  in  such  a way  that  they  closely  model 
integers.  One  can  either  think  of  these  operations  as  ones  which 
interpret  their  operands  as  integers,  perform  the  integer  arithmetic 
and  convert  the  result  back  into  the  Rvalue  form,  or  alternatively  one 
may  think  of  them  as  operations  which  work  directly  on  bit  patterns 
and  just  happen  to  be  useful  for  representing  integers.  This  latter 
approach  is  closer  to  the  BCPL  philosophy.  Although  the  BCPL 
programmer  has  direct  access  to  the  bits  of  an  .Rvalue,  the  details  of 
the  binary  representation  used  to  represent  integers  are  not  defined 
and  he  would  be  losing  machine  independence  if  he  performed 
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nonnumer ica 1 operations  on  Rvalues  he  knows  to  represent  integers. 

An  operation  of  fundamental  importance  in  the  object  machine 
that  of  Indirection.  This  operation  has  one  operand  which 
interpreted  as  an  address  and  it  locates  the  storage  cell  which 
labelled  by  this  address.  This  operation  is  assumed  to  be  efficient 
and,  as  is  seen  later,  the  programmer  may  invoke  it  from  within  BCPL 
using  the  rv  operator. 


1 s 
i s 
i s 


3 . 2 Variables,  Manifest  Constants,  and  Address  Constants 

Names  in  BCPL  are  associated  either  with  storage  cells  or 
directly  with  Rvalues.  A variable  in  BCPL  is  defined  to  be  a name 
which  has  been  associated  with  a storage  cell.  It  has  a value  whic 
is  the  Rvalue  contained  in  the  cell  and  it  is  called  a variable  since 
this  Rvalue  may  be  changed  by  an  assignment  command  during  execution. 
Variables  are  introduced  by  simple  variable  definitions,  the  for 
command,  formal  parameter  lists,  and  the  static  and 

declarations. 

A manifest  constant  is  a name  which  is  directly  associated  with  a 
constant  Rvalue;  this  association  takes  place  at  compile  time  and 
remains  the  same  throughout  execution.  Manifest  constants  are 
introduced  only  by  the  manifest  declaration.  There  are  many 

situations  where  manifest 
at  no  cost  in  run 


constants 
time  efficiency. 


can  be  used  to  improve  readability 


An  address  constant  is  defined  to  be  a name  which  is  directly 
associated  with  an  Rvalue  representing  in  some  way  an  address.  The 
Rvalue  cannot  be  determined  until  “load  time"  (just  before  execution) 
and  remains  the  same  during  execution.  Address  constants  cannot  be 
used  in  constant  expressions,  wh’ch  must  be  evaluated  at  compile  time. 
Labels,  the  external  declaration,  and  routine  and  function  definitions 
introduce  address  constants. 


3 . 3 Lvalues  and  Modes  of  Evaluation 

As  previously  stated  each  storage  cell  is  labelled  by  an  address; 
this  address  is  called  the  Lvalue  (or  Left  hand  value)  of  the  cell. 
Since  a variable  is  associated  with  a storage  cell,  it  must  also  be 
Dssociated  with  an  Lvalue  and  one  can  usefully  represent  a variable 
d iaqrammatically  as  in  Figure  2. 
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Name 


V 

LVALUE 


Storage  Cell 


RVALUE 


Figure  2 - The  Form  of  a Variahip 

srJ;:"  " 

:rs:  -s  “ES- 

- • •’  Simple  Assignment 

The  syntactic  form  of  a simple  assignment  command  is: 

El  :=  E2 

where  El  and  E2  are  expressions.  Loosely,  the  meanina  of  thr 

TdT.:T\o"  b?  - the""?o"a9o  con 

evTluflt-pH  -in  H'ff  clear  that  the  expressions  Cl  and  E2  are 

evaluated  .n  different  ways  and  hence  there  is  the  classification  into 
e two  modes  of  evaluation.  The  expression  El  to  the  left  of  the 

h“a\f  yield  the  Lvalue  o£  some  stooge  cej  and  th^ 

tne^sbo^^ge1eir!^“?S:^  s'^lS^ 

,-*ccess  IS  shown  d lagrammatical  ly  in  Figure  3.  ‘ 


I Lmode 
I evaluation 

y 

Lval ue 
h 


I Rmode 
I evaluation 

? 

Rval ue 


V 

Lval ue 


Storage  coll 


I I The  Rvalue  is  placed 
< + — in  tne  cell 


Figure  3 - The  Process  of  Assignment 
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The  only  expressions  which  may  meaningfully  appear  on  the  xeft 
hand  side  of  an  assignment  a'e  those  which  are  associated  with  storage 
cells;  they  are  called  Ltype  expressions. 

The  terms  Lvalue  and  Rvalue  derive  from  consideration  of  the 
assignment  command  and  were  first  used  by  Strachey  in  the  CPL 
reference  manual  [2]. 

3.5  The  Lv  Operator 

As  previously  stated  an  Lvalue  is  represented  by  a bit  pattern 
which  is  the  same  size  as  an  Rvalue.  The  1^  expression  provides  the 
facility  of  accessing  the  Lvalue  of  a storage  cell. 


The  syntactic  form  of  an  1 v expression  is: 


1^  E 

where  E is  an  Ltype  expression.  The  evaluation  process  is  shown  in 
Figure  4. 


I Lmode 
I evaluation 

Lvalue 

h 

I Identical 
I bit  patterns 


Rvalue  < 

Figure  4 - The  Evaluation  of  an  lv  Expression 


The  operand  is  evaluated  in  Lmode  to  yield  an  Lvalue  and  the 
result  is  a bit  pattern  identical  to  this  Lvalue.  Intuitively,  l_v  x 
is  the  address  in  memory  of  the  variable  x.  The  lv  operator  is 
exceptional  in  that  it  is  the  only  expression  operator  to  invoke  Lmode 
evaluation,  and  indeed  in  all  other  contexts,  except  the  left  hand 
side  of  the  assignment,  expressions  are  evaluated  in  Rmode. 
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3 . 6 The  Pv  Operator 

The  rv  operator  is  important  in  BCPL  since  it  provioes  tnc 
under lyin^mechanism  for  manipulating  vectors  and  data  structures;  its 
operation  is  one  of  taking  the  contents  (or  Rvalue)  of  a storage  cell 
whose  address  (or  Lvalue)  is  given. 

The  syntactic  form  of  an  r_v  expression  is  as  follows: 

r V E 

and  its  process  of  evaluation  is  shown  diagr ammatical ly  in  Figure  5. 

r V E 

I Rmode 
I evaluation 
Si 

Rval  ue 

A 

I Identical 

I bit  patterns 

I y 

1 Lvalue 

I 

Figure  5 - The  Evaluation  of  an  rv  Expression 


The  operand  is  evaluated  in  Rmode  and  then  the  storage  cell  whose 
Lvalue  is  the  identical  bit  pattern  is  found.  If  the  rv  expression  is 
being  evaluated  in  Rmode,  then  the  contents  of  the  celT~is  the  result; 
it  is  also  meaningful  to  evaluate  it  in  Lmode,  in  which  case  the 
Lvalue  of  the  cell  is  the  result.  An  £v  expression  is  thus  an  Ltype 
expression  and  so  may  appear  on  the  left  hand  side  of  an  assignment 
command,  as  in: 

rv  p :=  t 

and  one  can  deduce  that  this  command  will  update  the  storage  cell 
pointed  to  by  p with  the  Rvalue  of  t.  Thus 

rv  lt)0  :=  0 

sets  location  100  to  zero. 


y 

I 

I Rvalue 
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3 . 7 The  Vector  Operator 

The  vector-application  operator  (represented  here  by  !)  takes 
advantage  of  the  consecutive  arrangement  of  storage  cells.  It  finds 
the  n ” th  successor  to  a given  cell,  as  shown  in  Figure  6. 


V 1 3 


y I 

-->Rvalue  i 


Rvalue 


Bit  pattern  < 


Identical 
bit  patterns 

I 

t 

Lvalue 


Identical 
bit  patterns 
I 

Lvalue 


Figure  6 - An  Interpretation  of  V 1 3 


The  diagram  above  shows  a possible  interpretation  of  the 
expression  V!3.  Some  adjacent  storage  cells  are  shown  and  the  left 
hand  one  has  an  Lvalue  which  is  the  same  bit  pattern  as  the  Rvalue  of 
V.  The  cell  at  the  right  is  the  third  successor  of  the  one  on  the 
left.  In  terms  of  the  addressing  function  A,  if  V = A (n)  then  the 
Lvalue  of  the  cell  on  the  right  is  A (n+3) . Thus  the  expression: 

V ! i 

accurately  models  a vector  application,  since,  as  i varies  from  zero 
to  three,  the  expression  refers  to  the  different  elements  of  the  set 
of  four  cells  pointed  to  by  V.  V can  be  thought  of  as  the  vector  and 
1 as  the  integer  subscript. 

A vector  application  is  an  Ltype  expression;  in  Lmode  evaluation 
it  yields  the  address  of  the  designated  cell,  and  in  Rmode  evaluation 
it  yields  the  contents. 

Figure  7 shows  how  a vector  application  can  be  thought  of  as  a 
data  structure  select  operation.  The  variable  Xpart  acts  as  a named 
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selector  applied  to  the  data  structure  V.  Manifest  constants  are 
commonly  used  to  define  structure  selectors  of  this  kind. 


V 


-I- > 

1 


Xpar  t 


I 3 I 


Figure  7 - An  Interpretation  of  V ! Xpart 


By  letting  the  elements  of  structures  themselves  be  structures  it 
is  possible  to  construct  compound  data  structures  of  arbitrary 
complexity.  Figure  8 shows  a structure  composed  of  integers  and 

pointers . 


The  cel]  referred 
to  by  V! Xpart 


X 


Figure  8 - A Structure  of  Integers  and  Pointers 
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The  unusual  way  In  which  BCPL  treats  types  is  fundamental  to 

its  design  and  thus  some  discussion  of  types  is  in  order  her..  It 
useful  to  introduce  two  classes: 

(a)  conceptual  types 

(b)  internal  types 

The  conceptual  type  of  an  expression  is  the  kind  of  abstract 
omect  the  proorammer  had  in  mind  when  he  wrote  the  express  on  It 
r^aht  be  for  inkance,  a time  in  milliseconds,  a weight  in  grams,  a 
tuition  to  transform  feet  per  second 

tP  data  structure  representing  a parse  tree.  It  JS,  ot  course, 
impossible  to  enumerate  all  the  possible  conceptual  types  and  it  is 
iauaUv  impossible  to  provide  for  all  of  them  individually  within  a 
programming  language.  The  usual  practice  when  designing  a language  is 
t^  seTec"  from  the  conceptual  types  a few  basic  ones  and  provide  a 
suitable  internal  representation  together  with  an  adequate  set  o 
b.rsic  operations.  The  term  internal  type  refers  to  any  one  of  these 
^a^ic  types  aid  the  intention  is  that  all  the  conceptual  types  can  be 
modelled  effectively  using  the  internal  Wes.  A few 
types  provided  in  a typical  language,  s.  -h  as  CPL,  are  listed 

real 

integer 

label 

integer  function 
( real , boolean)  vector 

Much  of  the  flavor  of  BCPL  is  the  result  of  conscious  design 

■-.p-icion  to  provide  only  one  internal  type,  namely:  the  bit  Pattern 

"r  nialu^).^  in  order  to  allow  the  programmer  to  model  any  conceptual 
t;:.  r la^ge  set  of  useful  primitive  operations  • 

For  instance,  the  ordinary  arithmetic  operators  integer 

oeen  defined  tor  Rvalues  in  such  a way  as  to  model  the  ^f^tege 
operations  directly.  The  six  standard  relational  operators  have  .^^en 
defined  and  a cLplete  set  of  bit  manipulating  operations  Provided 
in  addition,  there  are  some  stranger  bit  pattern  operations 
provide  ways  of  representing  functions,  labels  and,  as  we  have  alrea  y 
Len  vectors  and  structures.  All  the  operations  provided  are 

uniformly  efficient  and  they  have  not  been  overdefined.  tor  instance, 

the  effect  of  adding  a number  to  a label,  or  a vector  to  a unc  lo  . 
not  defined  even  though  it  is  possible  for  a programmer  to  cause  it  to 

take  place. 

The  most  important  effects  of  designing  a language  in  this  way 
can  be  summarized  as  follows: 

1.  There  is  no  need  tor  type  declarations  in  the  language, 

since  the  type  of  every  variable  is  alreaay  known.  Tnis 

helps  to  make  programs  concise  and  also  simplifies  such 
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linguistic  problems  as  the  handling  of  actual  parameters 
ano  separate  compilation. 

2.  It  gives  BCPL  much  of  the  power  of  a language  with 
dynamically  varying  types  and  yet  retains  the  efficiency 
of  a language  (like  FORTRAN  [3])  with  manifest  types;  for, 
although  the  internal  type  of  an  expression  is  always 
known  by  the  compiler,  its  conceptual  type  can  never  be 
and,  indeed,  it  may  depend  on  the  values  of  variables 
within  the  expression.  For  instance,  the  conceptual  type 
of  V!i  may  depend  on  the  value  of  i.  One  should  note 
that,  in  languages  (such  as  ALGOL  [4]  and  CPL)  where  the 
elements  of  vectors  must  all  have  the  same  type,  one  needs 
some  other  linguistic  device  in  order  to  handle  more 
general  data  structures. 

3.  Since  there  is  only  one  internal  type  there  can  be  no 
automatic  type  checking  and  it  is  possible  to  write 
nonsensical  programs  which  the  compiler  will  translate 
without  complaint.  This  disadvantage  is  hopefully 
outweighed  by  the  simplicity,  power  and  efficiency  that 
this  treatment  of  types  makes  possible. 
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4 . 0 Expressions 


All  BCPL  expressions  are  described  in  this  section.  They  are 
grouped  into  syntactic  classes  of  decreasing  binding  power  as  follows: 


(a)  Primary  expressions. 

These  are  the  most  binding  and  most  primitive  expressions. 


They 


are 


ivames,  numbers,  truth  values,  string  constants, 
character  constants,  nil,  bracketted  expressions, 
result  blocks,  Iv  expressions,  _rv  expressions,  vec 
expressions,  table  and  list  expressions,  vector 
applications  and  function  applications. 


(b)  Arithmetic  expressions. 


These  expressions  provide  the  standard  integer  and  floating  point 
^relations  of  multiplication,  division,  remainder,  addition  and 


subtraction.  They  are  less  binding  than  the  primary  expressions 


(c)  Relational  expressions. 


A relational  expression  takes  integer  or  floating  point  arguments 
and  yields  a boolean  value  depending  on  the  truth  of  the  relation. 


(d)  Shift  expressions 


The  shift  operations  allow  one  to  shift  a bit  pattern  to  the  left 
or  right  by  a specified  number  of  places. 


(e)  Logical  expressions. 


These  expressions  allow  one  to  manipulate  bits  of  an  Rvalue 
directly.  They  may  be  used  in  conjunction  with  the  shift  operators  to 
pack  and  unpack  data.  The  standard  BCPL  representations  of  ana 
Lise  are  chosen  so  that  the  logical  operators  may  also  be  useo  on 

boolean  data. 


(f)  Conditional  expressions 


A conditional  expression  allows  for  conditional  evaluation  of  one 
of  two  expressions. 


This  section  ends  with  descriptions  of  <constant  expression>  and 
:E  list>  although  they  are  not  syntactic  subcategories  of  expressions. 


■J 


PrecediDK  page  blank 
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4 . 1 Primary  Expressions 

All  the  primary  expressions  are  described  in  this  section. 

4.1.1  Names 


i. 


f 


Syntactic  f orm : 

A name  is  a canonical  symbol  of  BCPL  and  its  hardware 
representation  is  implementation  dependent.  If  there  are  sufficient 
hardware  characters  available  it  consists  of  any  sequence  of  letters, 
iigits  and  underlines  starting  with  a capital  letter.  A single  small 
letter  may  also  be  used  as  a name. 

Examples : 

H3  Tax_rate  F i 
List4  StackP 

Semant ics : 


A name  may  be  associated  directly  with  an  Rvalue  by  means  of  a 
manifest  declaration  or  by  a label  declaration,  function  or  routine 
definition,  or  external  declaration,  or  it  may  be  associated  with  a 
storage  cell  To  form  a variable  using  any  other  kind  of  declaration. 
A variable,  manifest  constant,  or  address  constant  can  be  referred  to 
by  Its  name  throughout  the  scope  of  its  declaration  (see  section  6.0 
on  scopes  and  extents  of  definitions)  . 

A manifest  constant  or  address  constant  can  only  be  evaluated 
in  Hmode  and  its  result  is  the  Rvalue  which  was  associated  with  it  by 
Its  declaration. 


A variable  is  the  association  of  a name  with  a storage  cell  and 
It  may  be  represented  as  follows; 


Name. 

Lmode  evaluation 

Lvalue 


Rmode  evaluation 


I Rvalue  I 
I I 


It  may  be  eva'  jated  in  Lmode  to  yield  the  Lvalue  cf  the  storage  cell, 
or  it  may  be  evaluated  in  Rmode  to  yield  the  contents  of  the  cell;  in 
either  case  the  result  is  a bit  pattern  of  standard  Rvalue  length. 


I 


( 
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[ 

' 4.1.2  Numbers 


Syntactic  form:  <digit>  ::=  0 1 1 I 2 I 3 I 4 | 5 I 6 I 7 I 8 I 9 

<number>  ::=  <digit>  l<digit>} 

1 8 <digit>  {<digit>} 

I <digit>  {<digit>}  . t<digit>} 

Examples:  132  43179  8377  3.14159  4. 

Semantics : 

A number  is  an  Rtype  expression  and  may  only  be  evaluated  in 
Rmode.  The  symbol  8 introduces  an  octal  constant  whoso  Rvalue  is  the 
right  justified  bit  pattern  specified  by  the  sequence  of  octal  digits. 
A decimal  number  is  a sequence  of  digits  not  preceded  by  its  Rvalue 
is  a bit  pattern  representing  the  integer  in  a way  which  depends  on 
the  implementation.  A floating  point  number  is  a sequence  of  digits 
with  a decimal  point  embedded  or  at  the  end.  The  Rvalue  is 

implementation  dependent. 

Some  implementations  may  admit  of  other  number  forms,  such  as 
::exadec imal . 

4.1.3  String  Constants 

Syntactic  form:  " {<string  character>}  " 

A string  constant  is  a canonical  symbol  of  BCPL  and  its 
hardware  representation  is  implementation  dependent.  Where  possible 
it  is  a sequence  of  characters  enclosed  in  double  quotes  (").  The 
asterisk  (*)  is  used  as  an  escape  character  with  the  following 
conventions: 


*n 

r epresents 

newline 

* s 

represents 

space 

*b 

represents 

backspace 

*t 

represents 

tab 

* " 

represents 

> 

represents 

* * 

represents 

* 

Some  implementations  may  admit  additional  escapes  in  strings. 

Examples:  "End  of  test"  "=" 

"*n*tTRA*tLl*n 

Semantics : 

The  Rvalue  of  a string  constant  is  a pointer  to  a set  of 
consecutive  storage  cells  containing  the  lengt'.  and  characters  of  the 
string  in  some  packed  form.  The  number  of  bits  per  character  and  the 


UMI  ' 
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number  of  characters  per  storage  cell  are  implementation  dependent. 
For  an  implementation  which  packs  four  characters  per  word,  the  string 

"Abcl0*n" 

might  be  represented  as  follows: 


Rvalue  > 1 

1 

— 

•b’ 

c ' 

1 

1 

1' 

0 

■ *n  ’ 

0 

The  storage  cells  containing  the  string  should  not  be  updated; 
some  implementations  use  a "memory-protect"  hardware  facility  to 
prevent  updating. 


4.1.4  Character  Constants 


Syntactic  form: 


<string  character> 


The  same  escape  conventions  that  are  used  in  string  constants 
may  be  used  in  character  constants. 


X 


'*n' 


Examples : 

Semantics: 

Every  string  alphabet  character  has  an  integer  code  and  the 
.lvalue  of  a character  constant  is  the  Rvalue  of  its  cor  respond  ino 
integer  code.  The  character  code  is  implementation  dependent. 


4.1.5  Truth  Values 

Syntactic  form:  true  or  false 

Semantics: 

The  Rvalue  of  false  is  a bit  pattern  entirely  composed  of  zeros 
and  the  Rvalue  of  true  is  the  complement  of  falsa , namely  a bit 
pattern  entirely  composed  of  ones.  (N.B.  These  are  numerically  equal 
in  a ones-complement  machine.) 
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4.1.6  Nil 


Syntactic  form: 

nil 

Example : 

let  X = nil 

Semantics : 

The  Rcalue  of 
initializing  a newly 
variable  x is  defined 

nil  is  undefined.  Its  purpose  is 
def ined  cell.  In  the  example,  the 
without  an  initial  value. 

to  avoid 
dynamic 

4.1.7  Bracketted  Expressions 


Syntactic  form:  ( E ) 

Examples:  T r em  ((x-y)/{x+y)  + 2/z) 

(B  ->  A,  B)  ! (i+1) 

Semantics : 

Parentheses  may  enclose  any  expression  without  changing  its 
mode  of  evaluation  or  its  value.  Their  sole  purpose  is  to  specify 
grouping . 


4.1.8  Result  Blocks 


Syntactic  form:  valof  <block> 


Example:  valof  $(  for  i=l  to  n do 

j. f^  P { i , X ) resultis  false 
resultis  true  $) 


Semantics : 

A result  block  is  a form  of  BCPL  expression  in  which  :ommar.ds 
can  be  executed  before  the  value  of  the  expression  is  found.  It  is 
evaluated  by  executing  the  block  until  a resultis  statement  is 
encountered;  this  causes  execution  of  the  block  to  cease  and  the 
Rvalue  of  the  expression  in  the  resultis  command  is  the  result.  Sec 
section  5.14. 
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4.1.9  Lv  Expressions 

Syntactic  form:  lv  E 

^ere  E is  a primary  expression. 

Examples:  Readch  (INPUT,  I_v  Ch) 

U :=  ^ V!i 

Semant ics : 

Tne  Rvalue  of  an  ^ expression  is  the  bit  pattern  obtained  by 
evaluating  the  operand  (which  must  be  an  Ltype  expression)  in  Lmode . 
See  the  discussion  of  left  and  right  hand  values  in  section  3.3,  and 
of  the  Lv  operator  in  section  3.5. 


4.1.10  Rv  Expressions 

Syntactic  form:  rv  E 

^ere  E is  a primary  expression. 

Example:  LY.  ^ :=  t_v  (f  (i)  + 2) 

Semantics : 

An  rv  expression  is  an  Ltype  expression  and  may  be  evaluated 
to  yield  either  an  Lvalue  or  an  Rvalue.  It  is  evaluated  by  evaluating 
Its  operand  in  Rmode  to  yield  a bit  pattern  which  is  interpreted  as 
the  Lvalue  of  a storage  cell.  In  Lmode  evaluation  this  bit  pattern  is 
the  result,  but  for  Rmode  evaluation  the  contents  of  the  storage  cell 
is  the  result.  The  rv  expression  is  described  further  in  section  3.6. 


4.1.11  Vector  Expressions 

Syntactic  form:  vec  <constant  expression> 

Examples:  let  v = vec  100 

Vvord  :=  vec  Vmax  / 4 

Semantics : 

Let  the  value  of  the  constant  expression  bo  n.  Then  the 
Rvalue  of  the  vector  expression  is  the  address  (Lvalue)  of  the  first 
word  of  a block  of  storage  n + 1 words  long.  Thus  there  is  both  a 
/.orc  th  word  and  an  n th  word. 

Iho  storage  is  dynamic  in  class  and  is  newly  allocated  by  each 
evaluation  of  the  expression.  It  remains  allocated  for  as  long  as 
execution  is  dynamically  between  the  reference  and  the  end  of  the 
function  or  routine  body,  or  the  end  of  the  smallest  enclosing  scop* 
of  any  dynamic  variable  declaration.  In  the  first  example  above,  the 
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storage  remains  allocated  as  long  as  the  cell  v does.  Repeated 
evaluation  of  uhe  expression  within  a particular  invocation  of  a 
function  or  routine  results  in  allocating  the  same  block  of  storage 
each  .ime. 


4.1.12  Table  and  List  Expressions 


Syntactic  form:  table 

list 


<constant  list> 
<E  list> 


Examples:  let  T = table  '0',  '2',  '3', 

'6',  '7',  '8',  '9', 

'A',  'B',  'C',  'D',  'E',  'F' 

Cv  :=  list  “zero",  "one",  "two",  "three", 
"four",  "five",  "six",  "seven", 
"eight",  "nine",  "ten" 


Semantics : 

All  the  expressions  which  appear  after  table  must  have  Rvalues 
-rich  can  be  determined  at  compile  time.  The  Rvalue  of  a table  is  a 
ccir.ter  to  a set  of  consecutive  storage  cells  whose  initial  values  are 
given  by  the  list  of  constant  expressions;  the  allocation  of  tne 
storage  cells  and  the  initialization  are  performed  prior  to  execution 
of  the  program. 

A table  may  be  used  as  a vector;  for  instance,  T!15  is  equal 
to  'F'  in  the  example  above.  The  elements  of  a table  should  not  be 
updated;  some  implementations  use  a "memory-protect"  hardware  facility 
to  prevent  updating. 

The  list  expression  is  similar  to  table . The  initial  values 
can  be  any  expressions.  They  are  evaluated  and  stored  in  the  list  at 
the  time  the  list  expression  is  evaluated.  The  storage  is  allocated 
dynamically  as  for  vectors.  See  section  4.1.11. 

let  L = list  E0,  El,  ...  En 

IS  equivalent  to 


let  L = vec  n 

m,  Lillf  Lfln  Ei0f  •••  En 
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4.1.13  Vector  Applications 

Syntactic  form:  El  1 E2  t El  [ E3  ] 

El  and  E2  are  primary  expressions  and  E3  is  any  expression. 
The  operator  is  left  associative  and  thus 

X ! y ! z means  (x  1 y)  ! z 

Examples:  V ! (i+1)  :=  V ! i + p ! Xpart 

case  SEQ:  Trans  (x[H2]) 

Tr  ans  ( x | H3 ] ) 
return 


Semantics : 

The  expression  El!E2  is  defined  to  take  the  Rvalue  of  the 
(E2) "th  successor  to  the  cell  whose  Lvalue  is  El.  Its  purpose  is 
explained  in  section  3.7. 

The  expression  El  (E21  is  equivalent  to  E1!(E2). 


4.1.14  Function  Applications 

Syntactic  form:  E0  (<E  list>)  I E0  () 

E0  is  a primary  expression  and  the  <E  list>  may  contain  any 
expressions . 

Examples:  f (x) 

H (1,  2*t, 

(x=0  ->  t,  P3) (1,  "ZT",  y+2) 

Nextparam  () 

Semant ics : 

The  eva..uation  of  a function  application  is  explained  in 
section  6.3.2. 


4 . 2 Arithmetic  Expressions 

Syntactic  form:  E * E I E / E I E r em  E I 

E + K t E - E I 
+ E I - E ! 

E .*  E 1 E ./  E 1 
F,  .+  E 1 E .-  E I 
.+  E I .-  E 

The  operators  * / rem  .*  and  ./  are  equally  bindinq  and  associate 
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I 

! to  the  left;  they  are  more  binding  than  + - .+  or 

i associate  to  the  left. 

i 

i Thus 

X * y rem  z means  (x  * y)  rem  z 
X + y - z/t  means  (x+y)  - (z/t) 


which  also 


Examples ; 


2*x*x  + 6*x*y  + 7*y*y 
V ! (f  (x)  rem  13)  + G (x) 
X 2.3  .+  y .*  4.7 


Semantics: 

The  arithmetic  %r'in«g%j2  Inf 'yieSd 

integer  operators  then  results  ot  the  arithmetic.  The 

kvalLs  representing  the  the  Bvfues  as  tloating 

“ffl'illf  pialuL  representing  the  floating  pornt 
results  of  the  arithmetic. 

The  operators  * and  / denote  integer  multiplication  and  division 
respectively . 

The  operator  rem  yields  the  ‘^11“^ e^t^^ 

rrsulffaf bf pof  tlilf  iSf  s ftr^rwise  Implementation  dependent. 

Cl  J.  F9  vields  an  Rvalue  representing  the  integer 

The  expression  El  + E2  yieias  an  nvaxu  r 

summation  of  El  and  E2. 

The  Rvalue  ot  + El  is  the  Rvalue  of  El. 

Tnc  expression  El  - E2  yields  an  Rvalue  representing  the  result 
of  subtracting  E2  from  El. 

The  expression  - El  has  the  same  meaning  as  S - El. 

The  operators  .*  and  ./  denote  floating  point  multiplication  and 
division  respectively. 

The  infixed  operators  .+  and 
and  subtraction. 


denote  floating  point  addition 


The  expression 
The  expression 


.+  E is  the  same  as  E. 

E is  the  same  as  0.0 


E. 
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4 . 3 Relational  Expressions 


Syntactic  form:  E <relop>  E {<relop>  E}  where 

<relop>  ::=  =|  <|  >|  £|  >| 

.=  I .5^  I .<  i .>  I .<  I •> 

The  relational  operators  are  just  less  binding  than  the 
arithmetic  operators. 

Examples:  j_f  0 £ x < y goto  L 

A 1 i :=  f (x)  = g (x) 

X .=  0.0  ->  0.0,  y ./  X 

semantics: 

For  a simple  relational  expression  defined  by 

E <relop>  E 

the  operands  are  evaluated  in  Rmode;  the  Rvalues  obtainej  are  then 
interpreted  as  integers  or  floating  point  numbers  accordiiig  to  the 
operator  and  if  the  particular  relation  is  true  then  the  result  of  the 
expression  is  true,  otherwise  the  result  is  false.  An  extended 
relation  such  as 


El  <relop  1>  E2  <relop  2>  E3 

is  equivalent  to  the  following  expression: 

(El  <relop  1>  E2)  logand  (E2  <relop  2>  E3) 

However,  the  number  of  times  E2  is  evaluated  is  undefined. 

The  correspondence  between  the  operators  and  their  meanings  is 
qiven  below. 


IntegeL 

Floating  Point 

Operator 

Operator 

Meaning 

= 

. = 

equal  to 

not  equal  to 

< 

. < 

less  than 

> 

. > 

greater  than 

< 

. < 

less  than  or  equal  to 

> 

. > 

greater  than  or  equa 

30 


The  BCPL  Reference  Manual 


4.4  Shift  Expressions 


syntactic  form:  El  Ishift  E2  I El  rshi^  E2 


F2  is  anv  relational,  arithmetic,  or  primary  expression  and  El  is 

aLoc^.e 

to  the  left. 


Examples : 


let  P (t)  = t!3  r shift  10  logand  £3/7 
7^=  X Ishift  Bytesize  loqor  Ch 


Semantics: 

one  as  an  integer  to  indicate  the  number  of  places  to  shift. 

The  result  of  El  1^  E2  >s  the 

fo'lsh^^t  “h  °y  % ITT  h^^ighL  TaclLd  pos.tTSK^ate  rtlled 
"tK^is  aXd  the  result  is  undel.ned  it  E2  is  negative  or  greater 


than  the  number  of  bits  in  an  Rvalue. 


4 . 5 LQciical  Expressions 

Syntactic  form:  not  E 

rr  logand  E I E logor  E 

I E = E F E=/  E 

The  operator  is  most  binding,  then,  in  decreasing  order  ot 

binding  power,  there  are: 


All 


the  logical 

Examples : 


logand  , logor , Z'~L 

operators  are  less  binding  than  the  shift  operators. 
B : - not  B 

it  x=^  Togor  y=0  resultis  f(t) 

T:=  X log^d  8770077  logor  y logand  87700 


Semantics: 

The  operands  ot  all  the  logical  operators  are  interpreted  as  bit 
Patterns  of  ones  and  zeros. 

The  application  ot  the  operator  not  yields 

pU‘te^°rh«e";th™!t'depeSds‘on^?  oS  the  ttt  bits  o,  the  operands  and 
can  be  determined  from  the  following  table. 
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nth  bits  Operator 

of  operands  logand  logor  = 


both  ones 
both  zeros 
otherwise 


1110 
0 0 10 
0 10  1 


The  operators  logand  and  logor  are  interpreted  differently  when 
an  expression  is  being  evaluated  to  control  conditional  execution, 
specifically  in  the  if,  while,  test,  and  repeatwhile  commands  and  the 
conditional  expression.  In  most  implementations  one  operand  is 
evaluated  first  and  if  its  value  determines  the  result  the  other 
operand  is  not  evaluated.  This  occurs  when  one  operand  of  logand  is 
false  or  when  one  operand  of  logor  is  true. 


4 . 6 Conditional  Expressions 

Syntactic  form:  El  ->  E2,  E3 

El,  E2  and  E3  may  be  any  logical  expressions  or  expressions  of 


greater 

binding 

power.  E2  and 

E3  may 

in 

addition  be 

conditional 

expressions. 

Thus : 

Bl 

-> 

X , B2  ->  y , z 

means 

Bl 

->  X,  (B2  ->  y. 

z) 

and 

B1 

-> 

B2  ->  X,  y,  z 

means 

Bl 

->  (B2  ->  X,  y) 

/ z 

Example: 

let  f 

(X)  = X < 

0 

->  0, 

X > 10  ->  10, 


X 


Semantics: 

The  Rvalue  of  a conditional  expression  is  obtained  by  evaluating 
either  E2  or  E3  in  Rmode  depending  on  whether  the  value  of  El  is  true 
or  false. 


tr ue  ->  E2,  E3  means  E2 
false  ->  E2,  E3  means  E3 

If  the  value  of  El  is  neither  true  or  false  the  result  of  the 
conditional  expression  is  undefined. 

A conditional  expression  is  an  Ltype  expression  if  both  its 
alternatives  are  Ltype  expressions. 
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4 . 7 Constant  Expressions 


Syntactic  form:  <constant  expression>  ::=  E 

Example:  36  + 3 * Table_size 

Semantics : 

A constant  expression  is  one  wnose  Rvalue  can  be  determined  at 
compile  time.  It  may  be  a number,  a truth  value,  a character 
constant,  a manifest  constant,  or  a bracketted,  relational,  shift, 
logical,  or  conditional  expression  composed  of  constant  expressions. 

Constant  expressions  are  used  in 

(a)  case  labels 

(b)  vector  expressions 

(c)  manifes*-,  static,  global,  and  external  declarations 
and  (d)  tables. 


4 . S Expression  lists 
Syntactic  form: 


Examples : 


Semantics : 

Lists  of  expressions  are  useful  in  several  contexts,  such  as 
argument  lists  and  assignment  commands.  They  are  purely  a syntactic 
feature . 


<E  list>  <E  rep>  {,  <E  rep>l 

<E  rep>  ::=  E I E rep  <constant  expressi:>n> 

let  T = table  0 r^  10  //  Array  of  zeros, 

a,  b,  c :=  a + 1,  b + 1,  c + 1 
R (a,  b,  c rep  4) 


E0  rep  n 


It  ecuivalent  to 


E0,  E0 , ...  E0 

where  the  number  of  E0  terms  is  given  by  the  value  of  n.  Thus  r ep  is 
merely  a notation  to  avoid  repetitive  typing. 
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5 . 1}  Commands 

5 . 1 Simple  Assignment  Commands 

; Syntactic  form:  El  :=  E2 

Examples:  x :=  1 ^ 

V!i:=U!i+W!i 

Semantics : 

The  assignment  operation  has  already  been  discussed  in  section 
3.4.  El  trust  be  an  Ltype  expression  and  it  is  evaluated  in  Lmode  to 
yield  an  Lvalue,  and  E2  is  evaluated  in  Rmode  to  yield  an  Rvalue.  The 
contents  of  the  storage  cell  leferred  to  by  the  Lvalue  is  then 
replaced  by  the  Rvalue. 

An  Ltype  expression  may  be  of  one  of  the  following  four  kinds: 

(a)  A name  referring  to  a storage  cell. 

(b)  An  r_v  expression. 

(c)  A vector  application. 

(d)  A conditional  expression  whose  alternatives  are  both 
Ltype  expressions. 


5 . 2 Assignment  Commands 

Syntactic  form:  <E  list>  :=  <E  list> 

There  must  be  the  same  number  of  expressions  in  the  list  on  the 
right  of  the  :=  as  there  are  on  the  left. 

Example:  x,  V!i  ;=  1,  U!i  + W!i 

Semantics : 

The  assignment  command  is  semantically  equivalent  to  a seauence 
of  simple  assignment  commands.  The  general  form 

Ll,  L2,  ...  Ln  :=  Rl,  R2,  ...  Rn 
is  equivalent  to  the  following  set  of  simple  assignments: 


Ll 

:=  R1 

L2 

:=  R2 

Ln 

: = Rn 

PrecediiiE  pa^e  blank 
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The  order  of  execution  of  the  assignments  is  not  defined  and  may  not 
bo  relied  on.  Note  that  the  assignment: 

X,  y :=  y,  X 

will  not  interchange  the  values  of  x and  y.  The  main  advantage  of  the 
general  assignment  command  is  the  syntactic  one  of  eliminating  the 
need  for  section  brackets  in  certain  circumstances.  For  instance  the 
following  command 

i f X = y ^ $(  V!3  :=  0 

B :=  true  $) 


may  be  written 

i f y.  ■=  y ^ V ! 3 , B : = Q , true 

Since  the  order  of  evaluation  is  not  defined,  some  commands  are 
strictly  incorrect.  For  example,  the  command: 

Symbli,  i :=  Rch  (),  i + 1 

may  have  different  effects  in  different  implementations. 


5 . 3 Routine  Commands 

Syntactic  form:  E0  (<E  list>)  I E0  () 

E0  is  any  primary  expression  and  the  <E  list>  may  contain  any 
expressions . 

Examples:  R (x) 

Compjump  (x!H2,  false , L) 

(C  ! i)  0 

Semantics: 

The  execution  of  a routine  application  is  explained  in  detail  in 
section  6.3.2. 


6 . 4 Labelled  Commands 

Syntactic  form:  <name>  : C 

Examples:  Next:  Rch  () 

L:  Chkind  :=  Kind  (Ch) 

Semantics: 

A labelled  command  is  a form  of  declaration  which  associates  the 


1 

i 
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name  directly  with  the  Rvalue  representing  the  location  of  the 
command.  The  scope  of  the  name  is  the  smallest  textually  enclosing 
routine  or  function  body. 

The  Rvalue  of  a label  may  be  the  operand  of  a goto  command,  as 
described  in  the  next  section.  For  an  explanation  of  the  term  scope 
see  section  6.1. 


5 . 5 Goto  Commands 

Syntactic  form: 

Examples : 


Semantics : 

E is  evaluated  to  yield  an  Rvalue,  and  then  execution  jumps  to 
the  commano  whose  label  has  the  same  value.  The  point  where  execution 
is  resumed  must  be  at  the  same  activation  level  as  that  of  the  goto 
command,  or,  in  other  words,  the  label  and  the  goto  command  must  both 
be  in  the  same  function  or  routine  body.  The  effect  of  violating  this 
rule  is  usually  chaos. 

As  a general  rule,  it  is  a good  policy  to  try  to  minimize  the 
number  of  labels  in  a program  as  this  will  tend  to  improve  its 
readability. 


goto  E 

where  E is  any  expression. 

goto  Next 
goto  S ! i 

goto  x = 0 ->  Error,  Tvec ! x 


5 . 6 If  Commands 

Syntactic  form;  if  E do  C 

unless  E do  C 

Examples:  ^ x = 0 do  x ;=  10 

unless  SymU=S  COMMA  do  Report  (30) 
unless  S ! i = W ! i resultis  false 

Note  the  automatic  insertion  of  ^ by  the  compiler  in  the  third 
example.  See  section  2.4.3. 

Semantics: 

The  command  i^  E ^ C is  executed  by  evaluating  E to  yield  a 
truth  value  (see  section  4.5)  . If  the  result  is  u al se  execution  is 
complete,  if  the  result  is  true  the  command  C is  executec3 , and  if  the 
result  is  neither  true  nor  false  the  effect  is  undefined. 

The  command  unless  E do  C is  equivalent  to  jU  not  (E)  ^ C. 
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‘j  . 7 While  Commands 

Syntactic  form:  while  L ^ C 

until  E ^ C 

Examples:  while  N y SSP  do  LoadT  (S LOCALf  SSP) 

until  T T 0 = 0 do  T :=  T 1 0 

Semantics : 

Tne  command  while  E C is  equivalent  to: 

goto  L 
M : C 

L : E goto  M 

u:h  re  L and  M are  identifiers  which  do  not  occur  elsewhere  in 

pt  og  r ani . 

'Ihe  command  until  E do  C is  equivaient  to  while  not  (E)  do  C. 


S , 8 Test  Commands 

Syntactic  form: 


Example : 


Semantics: 

The  command  test  E then  Cl  0£  C2  is  equivalent  to: 

if  not  (E)  goto  L 

cT  

goto  M 

L : 

M : 

wnere  L and  M are  identifiers  which  are  not  used  elsewhere  in 
[ rog  ram . 

The  command  test  E if  so  Cl  ifnot  C2  is  equivalent  to  test  E 
Cl  or  C2.  The  if  so  and  ifnot  clauses  may  be  interchanged. 


test  E then  C or  C 
test  E if so  C TTnot  C 

test  2*n  > (CaseK  ! n - CaseK  ! l)/2  + 7 
then  Lswitch  (1,  n,  D) 
or  Bswitch  (1,  n,  D) 


the 


the 

then 
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5 • 9 Repeat  Commands 
Syntactic  form: 


Examples : 


Semantics: 


C repeatwhile  E 
C repeatun  .il  E 
C reoeat 


Rch()  repeatuntil  Ch  = '*n' 

$(  WP  :=  WP  + 1 
S 1 WP  Ch 

f^ch  0 $)  t epeatwhile  'A'  < Ch  < 'z' 


The  repeat  commands  are  defined  in  terms  of  other  equivalent 
commands,  as  follows:  uuntr  equivalent 

C repeatwhile  E is  equivalent  to  L:  C;  if  e goto  L 

C repeatuntil  E is  equivalent  to  C r epeatwhili~7iot  (E) 

c repeat  is  equivalent  to  C repeatwhiri~  trUe 

where  L is  an  identifier  which  is  not  used  elsewhere  in  the  program. 
5.10  For  Commands 

Syntactic  form:  for  <name>  = E to  E do  C 

<name>  = E ^ E ^ <constant>  ^ C 


Example : 
Semantics : 


lor  i = 0 to  122  do  V ! i :=  i 


forms : 


The  for  command  can  be  defined  by  the  following  equivalent 
for  N = El  E2  ^ E3  ^ C 


is  equivalent  to 


$ ( let  iNi , L = El,  E 2 
while  N £ Z do 
$(  C ~ 

N :=  N + E3  $)  $) 


if  E3  is  positive,  or 


$ ( let  N,  Z = El , E2 
while  N 2 Z do 
$(  C 

N :=  N + E3  $)  $) 


If  E3  is  negative.  (The  value  of  E3  is  known  at  compile  time.)  Z i 
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an 


identifier  not 
for  N = 


used  elsewhere  in  the  program. 
El  to  E2  do  C 


Also : 


is  equivalent  to 


tor  N = El  to  E2  by  1 ^ C 


The  ^ and 
value  and 
must  be 


by  clauses  may  be  interchanged 
end  limit  expressions  El  and  E2 
a constant  expression  so  that 


are 

its 


Note  that  the  initial 
evaluated  only  once.  E3 
sign  is  known  at  compile 


time. 


5.11 


Loup,  Break,  and  Endcase  Commands 

Syntactic  form:  loop 

Freak 

endcase 


Examples : 


tor  i = 1 to  v!0  ^ 

$ ( Tit  x = V 1 i 
iT“ X = 0 loop 


break 

LI : 

$) 

L2: 


swi tchon 

rr 


Op  into 
case  SWITCHON: 


case  SEQ: 


Transswitch  (xl 
endcase 
Trans  (x!l) 
Trans  (xl2) 
endcase 


$) 

L3: 


Semantics : 

Execution  of  the  break  command  causes  a jump  to  the  point 
after  the  smallest  textually  enclosing  loop,  introduced  by  one  of 
following  key  words: 

until,  while , repeat,  repeatwhile , repeatuntil  and  fo£. 

In  the  example,  this  is  the  point  labelled  L2. 

The  loop  command  causes  a jump  to  the  end  of  the  body  of 
smallest  enclosing  loop,  so  that  the  end  condition  is  tested  and 


just 

the 


the 

the 
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loop  repeated  as  required.  In  the  example,  this  is  the 

LI.  Ii  a for  loop  the  loop  command  also  causes  the  index  to  oe 

incremented  Befoie  the  test  is  made  (as  usual) . 

The  endcase  command  causes  a jump  to  the  point  just  after  the 
smallest  textually  enclosing  switchon  block.  In  the  third  example, 
this  is  the  point  labelled  L3 . 


5.12  Finish  Commands 


Syntactic  form:  finish 


Exampl e : 


if  Reportcount  > Reportmax  ^ 

$(  Writes  ('*nToo  many  errors*n  ) 
Endwrite  (OUTPUT) 
finish  $) 


Semantics : 

The  finish  command  causes  execution  of  the  program  to  cease  in 
an  orderly  manner.  Its  exact  effect  is  implementation  dependent. 


5,13  Return  Commands 

Syntactic  form:  return 

Example:  let  MapB  (F,  x)  ^ 

$ ( 1 i f X = 0 return 

IT  x!Hl  = 5_COMMA  ^ 
$(  MapB  (F,  x!H3) 
F ^x!H2) 
return  $) 

F (X)  $)1 


Semantics: 


return  command  causes  the  execution  of  the  smallest 
routine  body  to  cease  and  so  control  r-^turns  to  the  point 


The 

enclosing  routine  body  to  cease  ana  so  contLo^ 

just  aftL  the  routine  call  that  invoked  the  current  activation  of  the 
body . 
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5.14  Resultis  Commands 

Syntactic  form:  resultis  E 

Example:  valof  $(  for  i = 0 to  n do 

if  V ! i~?  U ! 1~ resultis  false 
resuFt is  tr ue  $) 

Semantics: 

The  execution  of  the  command  resultis  E causes  the  execution  of 
the  smallest  enclosing  result  block  to  cease  and  yield  the  value  which 
is  the  Rvalue  of  E. 


5.1-  Switchon  Commands 

Syntactic  form:  switchon  E into  <block> 

where  the  block  contains  labels  of  the  form: 
case  <constant>: 
case  <constant>  ^ <constant>: 
or  default : 

let  Trans  (x)  ^ 

$(1  ^ X = 0 return 

switchon  x ! hT  into 
T(  default;  Report  (100) j return 
case  S_LET;  - - - 

endcase 

case  S SEQ;  Trans  (x  ! H2) 

Trans  (x  ! H3) 
endcase  $ ) 1 

Sem.an  t ics : 

The  expression  after  switchon  is  evaluated  to  yield  an  Rvalue 
ana  then,  it  a case  label  exists  which  has  a case  constant  of  the  same 
value  then  execution  jumps  to  that  point,  otherwise  it  there  is  a 
aefault  label  execution  resumes  there.  If  the  switch  has  no  default 
label  and  it  no  case  constant  matches  the  switch  expression  then  the 
effect  is  undefined. 

The  case  label 

case  E 1 ^ E2 : 
is  equivalent  to 

case  El:  case  El  + 1:  case  El  + 2;  ...  case  E2: 


Exampl e : 


42 


The  BCPL  Reference  Manual 


where  E2  must  not  be  less  than  El. 

Note  that  the  names  S_LET  and  S_SEQ  in  the  example  above  must 
have  been  declared  to  be  manifest  constants. 

The  switch  is  implemented  by  any  one  of  a number  of  methods 
(e.g.  direct  switch,  sequential  search,  hash  table,  binary  tree) 
depending  on  the  number  and  range  of  the  case  constants. 


5.16  Call  Commands 

Syntactic  form:  call  E0  (<E  list>)  | call  E0  () 

Example:  call  Terminate  (Name  char  32,  ^ Code  fixed) 

Semantics: 

In  most  implementations  BCPL  does  not  use  the  system  standard 
call  sequence.  The  call  command  provides  a way  of  calling  routines 
not  written  in  BCPL.  The  nature  of  the  argument  list  is  extremely 
implementation  dependent.  In  the  implementation  from  which  the 
example  is  drawn,  the  types  of  the  arguments  must  usually  be  provided 
to  tne  called  program.  This  information  is  provided  by  infixed  and 
postfixed  operators  which  are  not  allowed  in  any  other  context. 


5.17  Blocks 

Syntactic  form: 

<block  item>  ::=  C | <declar ation> 

<block  body>  :;=  <block  item>  {;  <block  item>} 

<block>  ::=  $(  <block  body>  $) 

Example:  $(  let  List2  (x,  y)  = valof 

$(  let  P = Newvec  (1) 

P!0,  Pll:=x,y 
result  is  P $) 
finish  $) 

Semantics : 

A block  body  consists  of  a sequence  of  intermixed  commands  and 
declarations.  It  is  executed  by  executing  the  declarations  and 
commands  in  sequence. 

The  names  declared  by  the  declarations  are  local  to  the  block 
and  the  dynamic  storage  cells  allocated  only  remain  in  existence  as 
long  as  execution  is  dynamically  within  the  block.  For  a detailed 
discussion  of  scopes  and  extents  see  sections  6.1  and  6.2. 
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6.0  Definitions  and  Declarations 


Before  a name  may  be  used  in  a BCPL  program  it  must  be  declared 
by  the  programm.er  in  order  to  specify  its  scope,  extent  and,  possibly, 
its  initial  value. 


6 . 1  Scope  and  Scope  Rules 

The  SCOPE  of  a name  N is  the  textual  region  of  program  throughout 
which  N refers  to  the  same  variable,  manifest  constant,  or  address 
constant.  The  scope  of  a name  depends  on  its  declaration  as  follows: 

(a)  A formal  parameter  list  of  a function  or  routine 
definition  declares  a list  of  names  whose  scope  is  the 
body  of  the  function  or  routine  defined. 

(b)  A name  labelling  a command  is  a form  of  declaration  and 
it  declares  a name  whose  scope  is  the  smallest  enclosing 
routine  or  function  body. 

(c)  A let  declaration  declares  a name  or  set  of  names  whose 
scope  is  the  declaration  itself  and  all  succeeding 
commands  and  declarations  within  the  smallest  enclosing 
block  body.  A let  declaration  at  the  outer  level  of  a 
program  includes  the  rest  of  the  program  in  its  scope. 

(d)  A manifest , external , global , or  static  declaration 
declares  a set  oT  names  whose  scope  is  all  succeeding 
commands  and  declarations  within  the  smallest  enclosing 
block  body  or  program. 

(e)  The  scope  of  the  control  variable  of  a for  command  is  the 
body  of  the  command. 

If  two  variables  have  identical  scopes  then  they  must  have 
distinct  names  and  so,  for  instance,  the  names  in  a formal  parameter 
lii-c  and  the  labels  in  the  routine  body  must  all  be  different. 


6 . 2  Extent  and  Space  Allocation 

The  EXTENT  of  a variable  is  the  time  through  which  it  exists  and 
has  a storage  cell  (with  its  associated  Lvalue).  Throughout  the 
extent  of  a variable  it  remains  associated  with  the  same  storage  cell 
and  so  the  Lvalue  remains  constant;  however,  the  contents  of  the  cell 
'or  Rvalue)  may  be  replaced  by  the  execution  of  an  assignment  command. 
In  BCPL,  variables  can  be  divided  into  two  classes: 


Preceding  page  blank 
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(a)  Static  variables 

These  are  variables  whose  extents  last  as  long  as  the 
program  is  running.  The  storage  cell  of  a static 
variable  is  allocated  prior  to  execution  and  continues  to 
exist  until  the  program  has  finished  or  longer. 

(b)  Dynamic  variables 

The  extent  of  a dynamic  variable  starts  when  its 
declaration  is  executed  and  continues  until  execution 
leaves  its  scope.  Dynamic  variables  are  useful  when  one 
needs  some  working  space  for  a short  period  (perhaps 
during  the  execution  of  a routine)  and  it  is  too  wasteful 
to  use  static  storage.  Dynamic  variables  are 
particularly  useful  when  using  functions  and  routines 
recursively. 

The  class  of  a variable  depends  only  on  its  declaration.  Static 
variables  are  declared  by 

static  declarations, 
and  global  declarations. 

Dynamic  variables  are  declared  by 

simple  variable  definitions, 
tor  commands, 
and  formal  parameters. 

During  the  execution  of  a program  there  are  three  separate  areas 
of  storage  in  which  variables  may  reside;  these  are: 

(a)  the  global  vector, 

(b)  the  stack, 

(c)  miscellaneous  static  cells. 

The  global  vector  provides  a facility  rather  similar  to  COMMON  in 
KJKTRAN  and  is  used  as  a means  of  communication  between  separately 
compiled  segments  of  pr..gram.  The  programmer  may  use  a global 
declaration  to  associate  names  with  particular  cells  in  the  global 
vector  , 

The  stack  is  needed  tor  the  implementation  of  recursion  and  is 
used  to  hold  dynamic  variables  (such  as  vectors  and  function 
arguments)  and  anonymous  results  needed  during  the  evaluation  of 
expressions. 

The  miscellaneous  static  cells  hold  non-global  static  variables 
which  are  local  to  the  segment  in  which  they  are  declared. 

Function  and  routine  definitions,  labels,  and  the  manifest  and 
external  declarations  do  not  introduce  variables. 
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6 . 3 Let  Declarations 
Syn tactic  f or m : 


Exampl e : 


Semantics: 

A let  declaration  may  occur  in  a block  body  or  at  the  outei  level 
of  a program  and  may  be  used  to  declare  simple  variables,  functions 
and  routines.  The  scope  of  the  names  declared  is  the  textual  region 
of  program  consisting  of  the  let  declaration  itself  and  the  succeeding 
declarations  and  commands  of  the  block.  At  the  outer  level  of  a 
program  a let  declaration  may  only  declare  functions  and  routines. 
The  definitions  between  the  ands  are  at  the  same  level  and  arc 
effectively  executed  simultaneously,  and  by  this  means  a l_e^ 
declaration  may  be  used  to  declare  a set  of  mutually  recursive 
functions  and  routines. 

The  various  kinds  of  basic  definitions  are  described  below. 


6.3.1  Simple  Variable  Definitions 

Syntactic  form:  <name>  (,  <name>}  = <E  list> 

All  the  names  must  be  distinct  and  the  number  of  names  on  the 
left  of  the  = must  be  the  same  as  the  number  of  expressions  on  the 

I .ght  of  the  = . 

Example:  let  x = 1 

and  y,  z=f  (t)  +3,  A!H2 

and  V = vec  50 

Semantics : 


In  the  general  form 

Nl,  N2,  ...  Nn  = El,  E2,  ...  En 

dynamic  data  items  with  names  Nl,  N2,  ...  Nn  are  first  declared  but 
not  initialized,  then  the  assignment  command 

Nl,  N2,  ...  Nn  :=  El,  E2,  ...  En 


let  D (and  D} 

wTiere  D denotes  a definition 

let  X , y = 0 , 1 
and  f (t)  = 2*t  - 1 
and  I ter mV  = vec  2 2 


is  executed. 
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6.3.2  Function  and  Routine  Definitions 
Syntactic  form: 


<function  definition> 
<routine  definition> 


<nan;e>  ()  = E ! 

<name>  (<name  list>)  = E 

< name  > ( ) ^ C I 

<name>  (<name  list>)  be  C 


The  list  of  names  in  parentheses  is  called  the  formal  parameter 

1 ist . 


Example : 

let  Node  (x)  = valof 

$(  let  P = Freelist 
Freelist  :=  P + 3 
P!0,  P!l,  P!2  ;=  X,  0,  0 
result is  P $) 
and  Put  ( X , t ) be 

$(  ^ t!0  = X return 

t :=  t!0  <x->t+l,  t+2 
test  rv  t = 0 
then  rv  t ;=  Node  (x) 
or  Put  (X,  £v  t)  $) 

Semantics: 

The  purpose  of  a function  or  routine  definition  is  to  associate 
a name  with  an  Rvalue  which  may  be  used  in  a function  or  routine  call. 
The  heading  of  the  definition  consists  of  the  name  of  the  function  or 
routine  being  defined,  followed  by  a list  of  formal  parameters 
(possibly  empty)  enclosed  in  parentheses.  The  formal  parameter  list 
is  a form  of  declaration  which  declares  a set  of  variables  with  the 
specified  names  and  they  all  have  the  same  scope,  namely,  the  body  of 
the  function  or  routine.  Formal  parameters  are  dynamic  variables 
whose  storage  cells  are  allocated  at  the  moment  of  call.  The  initial 
values  are  given  by  the  actual  parameters  of  the  call. 

The  process  of  calling  a function  or  routine  is  shown 
diagrammatically  in  Figure  9. 


i 


i 
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E0 

( El, 

E2, 

...  En  ) 

1 

1 

1 

1 

1 

1 <-  - 

1 

1 

1 <- 
1 

1 

1 <-  - 
1 

- 1 . 

Evaluate  the 
arguments  in  Rmode. 

1 

V 

V 

1 

Rvalue 

Rvalue 

Rvalue 

1 

1 

1 

1 

1 <-  - 
1 

1 

1 <- 
1 

1 

1 <-  - 
1 

- 2. 

Place  the  Rvalues  in 
n new  consecutive 

1 

1 

1 

1 

1 

storage  cells. 

1 

1 

1 V T 
1 1 

T~  1 
1 

1 t 1 

. . I 1 

1 

Rvalue 

1 

1 

1 

1 

1 

1 

1 <-  - 
1 

1 

- - + - - 
1 

1 

1 

1 

- 3 . 

Find  the  function  or 
routine  corresponding 
to  the  Rvalue  of  E0 . 

1 

1 

1 

1 

1 

1 

1 

1 <- 
1 

- 4. 

Associate  the  formal 

1 

1 

1 

1 

1 

1 

1 

parameters  with  the 
storage  cells  from 
left  to  right. 

1 

1 

V 

1 

1 

= E 

N 

( Nl, 

N2, 

• • • • • • ) 

be  C 

5.  Evaluate  or  execute  the  body  of  the  function  or 
routine  in  the  environment  of  the  definition 
extended  by  the  new  variables. 

6a.  For  a routine  call  return  to  the  point  just  after 
the  call. 

6b.  For  a function  application,  yield  as  result  the 
Rvalue  of  the  body  of  the  function. 

Figure  9 - The  Process  of  Calling  a Function  or  Routine 


The  number  of  formal  parameters  need  not  equal  the  number  of 
actual  parameters  and  so  it  is  possible  to  define  a variadic  routine. 

Consider : 


let  R (a,  b,  c,  d,  e,  f)  be 
$ ( let  V = W a 


^ I 

I 
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Within  the  body  of  R,  the  variable  v may  be  thought  of  as  a vector 
whose  elements  are  the  arguments  of  the  call,  c.nd  thus  in  this  example 
v!0  equals  4 and  v!3  equals  63. 

Note  that  the  parameters  of  a BCPL  call  are  passed  by  value; 
however,  it  is  still  possible  to  achieve  the  effect  of  a call  by 
reference  using  the  Iv  and  r v operators.  Consider: 

let  S (X,  y)  be  rv  x :=  y 
let  A,  B = 0 ,~T 
S (Iv  A,  B) 

The  effect  of  the  call  for  S is  to  assign  the  current  value  of  3 
(namely  1)  to  the  variable  pointed  to  by  l_v  A (namely  A),  thus  after 
the  call  A has  value  1. 

All  functions  and  routines  may  be  defined  and  used  recursively. 

There  is  one  important  restriction  on  functions  and  routines 
which  has  been  imposed  in  order  tn  achieve  a very  efficient  recursive 
call.  This  restriction  is  as  follows: 

Every  name  which  is  used  in  the  body  of  a function  or 
routine  but  which  is  not  declared  there  must  be  a 
manifest  constant  or  address  constant  or  static 
variable  (see  section  6.2). 

In  terms  of  the  implementation,  this  restriction  states  that 
either  the  Rvalue  or  the  Lvalue  of  every  free  variable  of  a function 
or  routine  is  known  prior  to  execution  (but  not  necessarily  at  compile 
t im.e ) . 

Note  that  the  following  program  is  illegal ; 

leta,  b=l,  2 
let  f (X)  =a*x+b 

However,  it  may  be  corrected  as  follows: 

static  $(  a=l;b=2$) 

let  f (x)  = a*x  + b 

but  this  is  not  necessarily  equivalent  - e.g.,  if  a or  b is  updated. 
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5 . 4 Manifest  Declarations 

Svntactic  form:  manifest  $(  <decl  item>  {;  <decl  itein>}  $) 

where  <decl  item>  <name>  = <constant> 

Examples:  manifest  $(  Hl=0;  H2=l;  H3=2  $) 

manifest  $(  S_LET=74 

S_SEQ=73 

S COMMA=38  $) 


Semantics : 

A manifest  declaration  associates  Rvalues  directly  with  the 
declared  names;  the  association  takes  place  at  compile  time  and  cannot 
thereafter  be  changed.  The  names  so  declared  are  not  variables  and 
may  not  appear  in  a left  hand  context.  Any  constant  expression  may  be 

used . 


6.5  Static  Declarations 


Syntactic  Form: 


static  $(  <decl  item>  {;  <decl  item>}  $) 
where  ‘ <decl  item>  ::=  <name>  = <constant> 


Example : 


static  $ ( P = 0 ; Q - 0 

Reportmax  = 10  $) 


Semantics : 


A static  declarat  declares  a se 

section  6.2)  whose  init  ilues  sre  given, 

storage  cells  and  the  initialization  are  pe 
of  the  program.  Thus  the  initialization  is 
constant  expression  may  be  used. 


t of  static  vaiiables  (see 
Both  the  allocation  of 
rformed  prio..  to  execution 
performed  only  once.  Any 


. 6 Global  Declarations 


Syntactic  form: 


global  $(  <decl  item> 
where  <decl  item> 


{ ; <decl 
:=  <name> 


item>}  $) 

; ^constant> 


Examples : 


$) 


global  $(  Chatcode:127 ; Option:128 
qloBaT  $(  Rdblockbody : 140 ; Rdblock:141 


Rexp:144;  Rdef:145; 


Rcom:146 


V / 


Semant ics : 


A global  declaration  declares  variables  whose  storage  cells  are 
in  the  global  vector  (see  section  6.2).  The  main  purpose  tne 

global  vector  is  to  provide  a means  of  communication  -^t.ee,. 
separately  compiled  segments  of  program.  Each  name 
declaration  is  associated  with  a constant  expression  whose  value 
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specifies  which  storage  cell  in  the  global  vector  belongs  to  the  name. 
The  same  global  storage  cell  may  be  associated  with  variables  in  many 
separate  segm.ents  and  hence  may  be  used  to  pass  values  from  one 
segment  to  another. 


6.7  External  Declarations 


Syntactic  form:  external  $(  <decl  item>  {;  <decl  item>}  $) 

where  <decl  item>  ::=  <name>  = <constant> 

Example:  external  $(  Initiate  = "hcs_$initiate"  $) 

Semantics : 

The  external  declaration  defines  a set  of  names  directly 

associated  with  Rvalues  representing  routines  and  functions  in  other 
separately  compiled  programs.  The  constant  expression  in  the 

declaration  is  implementation  dependent  but  will  usually  be  a string 
constant  representing  the  name  of  an  "external  reference". 

The  external  declaration  can  also  be  used  to  make  routines  in 
this  program  known  to  other  programs,  as  a result  of  the  following 
rule : 

If  a function  or  routine  definition  occurs  within 
the  scope  of  an  external  declaration  with  the  same 
name,  then  the  function  or  routine  is  defined  as 
an  "external  symbol"  with  the  name  derived  from 
the  external  declaration. 

The  connection  between  an  external  reference  and  the 

corresponding  external  symbol  will  be  made  by  a loader  (linker, 
binder)  sometime  before  or  during  execution,  the  details  depending  on 
the  operating  system. 

For  example,  the  following  segment  will  define  an  external 
function . 

external  $(  F = "f$F"  $) 

let  F (g  ,x)  = g (X)  + g (-x) 

The  following  program  fragment  is  a segment  which  uses  the  function 
defined  in  the  last  example. 

external 

^ F = "f$F" 

Write  = "1 ibrary$Wr i te  " 

$) 

let  G (t)  =t*t+t43 

for  i = 0 to  :0  do  Write  (F  (G,  i)) 
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